home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / PLAYER_ISLAND.TCL < prev    next >
Encoding:
Text File  |  2002-05-15  |  1.5 KB  |  59 lines
  1. #
  2. # player_island.tcl
  3. #
  4. # State transitions for player island.
  5. #
  6.  
  7. proc player_islandwatch_normal {} {
  8.  
  9.     if {[.iskilled] == "true"} {
  10.         .announcestate explode
  11.     }
  12. }    
  13.  
  14. proc player_islandwatch_explode {} {
  15.  
  16.     # there is currently no animation, so we remove the island
  17.     # in a depth of 1000 meters
  18.     set island_pos [.getposition]
  19.     if {[lindex $island_pos 1] < -1000} {
  20.         .setremoveable true
  21.     }
  22. }    
  23.  
  24. proc player_islandwatch_cinematic {} {
  25.  
  26.     if {[.iscinematicfinished] == "true"} {
  27.         .announcestate normal
  28.     }
  29. }    
  30.  
  31.  
  32. # -----------------------------------------------------------------------
  33.  
  34. # kills all buildings on this island. Called as ActivateCommand of the
  35. # islands explode state
  36. proc killallbuildings {} {
  37.  
  38.     set nextvehicle ""
  39.     for {set child [.getfirstvehicle]} {$child != "null"} {set child $nextvehicle} {
  40.     
  41.         # store nextvehicle
  42.         set nextvehicle [.getnextvehicle $child]
  43.         
  44.         # do energy reduction on buildings
  45.         if {[$child.isvehicleclass "concret.technical.static.building"] == "true"} {
  46.         
  47.             # because of negative object energies, reduce at first energy
  48.             # and then 10 points again
  49.             set energy   [$child.getenergy]
  50.             set safekill 10
  51.             $child.reduceenergy $energy
  52.             $child.reduceenergy $safekill
  53.  
  54.             # remove artefact from island in this case
  55.             .removechildvehicle $child
  56.         }
  57.     }
  58. }
  59.